From fe58093de6e2d9b92500b88a43943b76d2753d60 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Wed, 8 May 2002 15:26:47 +0000 Subject: [PATCH] (make-flyspell-overlay): Add help text to flyspell overlays. --- lisp/textmodes/flyspell.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index d481c2799a4..9d553a68845 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -550,9 +550,9 @@ in your .emacs file. ;; otherwise it could be too late, the local dictionary may ;; be forgotten! (flyspell-accept-buffer-local-defs) - ;; we put the `flyspel-delayed' property on some commands + ;; we put the `flyspell-delayed' property on some commands (flyspell-delay-commands) - ;; we put the `flyspel-deplacement' property on some commands + ;; we put the `flyspell-deplacement' property on some commands (flyspell-deplacement-commands) ;; we bound flyspell action to post-command hook (add-hook 'post-command-hook (function flyspell-post-command-hook) t t) @@ -1495,6 +1495,7 @@ for the overlay." (overlay-put flyspell-overlay 'mouse-face mouse-face) (overlay-put flyspell-overlay 'flyspell-overlay t) (overlay-put flyspell-overlay 'evaporate t) + (overlay-put flyspell-overlay 'help-echo "mouse-2: correct word at point") (if flyspell-use-local-map (overlay-put flyspell-overlay flyspell-overlay-keymap-property-name -- 2.30.2